home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Questions & Answers / Q&A Programming Functions / Using RNA code < prev    next >
Encoding:
Text File  |  1998-10-26  |  4.2 KB  |  81 lines  |  [TEXT/ScoM]
  1. USING RNA CODE
  2.  
  3. >hello peter and those who like to mess with rna! i have started to look
  4. >at protein data found on some medical servers, and also the rna tester
  5. >in scom. could you please explain briefly the idea behind your function
  6. >"unlock gene" in the tester, which converts the blocks of letter data
  7. >into (a b c ) etc... is the function using a common decoding scheme
  8. >which has to be applied to the ATTCCQRTT ACTTRTTCA to get proper data or
  9. >do you have a special reason to do so?
  10.  
  11. Open-gene lets you paste a standard rna representation, and it filters
  12. out the numbers and also explodes the grouped rna strings into a list
  13. of symbol. You'll not the cond block here, it converts t to symbol b
  14. and g to symbol d. This way the rna is represented as symbols 
  15. a b c d, and not a t c g. Why? It is easier to use symbols which map
  16. to 4 first notes of the tonality than jump to different octaves.
  17.  
  18. If you want to have a t c g list as output then remove the cond part.
  19. Use a neuron to convert a t c g list to symbols of your preference.
  20. Check def-neuron documents. If you need more help on setting the
  21. neuron ask me.
  22.  
  23. (defun open-gene (l)
  24.    (prog (out a elem)
  25.       loop
  26.          (cond ((null l) (return (reversewoc out))))
  27.          (unless (integerp (car l))
  28.            (setq a (explodec (car l)))
  29.            (while (not (null a))
  30.              (setq elem (car a))
  31.              (cond ((equal elem 't)         ; remove if direct
  32.                     (setq elem 'b))         ; a t c g list is
  33.                    ((equal elem 'g)         ; required
  34.                     (setq elem 'd)))        ;
  35.              (setq out (xcons out elem))
  36.              (setq a (cdr a))))
  37.          (setq l (cdr l))
  38.          (go loop)))
  39.  
  40. (setq pep (open-gene
  41. '(      1 gaattccaga aaagaggtgg agaggggggg aataagaaag agagagaagg aaaggagaga
  42.        61 aggcaggaag aaggcaaggg acgagacaac catgctgtgc tgtatgagaa gaaccaaaca
  43.       121 ggttgaaaaa aatgatgacg accaaaagat tgaacaagat ggtatcaaac cagaagataa
  44.       181 agctcataag gccgcaacca aaattcaggc tagcttccgt ggacacataa caaggaaaaa
  45.       241 gctcaaagga gagaagaagg atgatgtcca agctgctgag gctgaagcta ataagaagga
  46.       301 tgaagcccct gttgccgatg gggtggagaa gaagggagaa ggcaccacta ctgccgaagc
  47.       361 agccccagcc actggctcca agcctgatga gcccggcaaa gcaggagaaa ctccttccga
  48.       421 ggagaagaag ggggagggtg atgctgccac agagcaggca gccccccagg ctcctgcatc
  49.       481 ctcagaggag aaggccggct cagctgagac agaaagtgcc actaaagctt ccactgataa
  50.       541 ctcgccgtcc tccaaggctg aagatgcccc agccaaggag gagcctaaac aagccgatgt
  51.       601 gcctgctgct gtcactgctg ctgctgccac cacccctgcc gcagaggatg ctgctgccaa
  52.       661 ggcaacagcc cagcctccaa cggagactgg ggagagcagc caagctgaag agaacataga
  53.       721 agctgtagat gaaaccaaac ctaaggaaag tgcccggcag gacgagggta aagaagagga
  54.       781 acctgaggct gaccaagaac atgcctgaac tctaagaaat ggctttccac atccccaccc
  55.       841 tcccctctcc tgagcctgtc tctccctacc ctcttctcag ctccactctg aagtcccttc
  56.       901 ctgtcctgct cacgtctgtg agtctgtcct ttcccaccca ctagccctct ttctctctgt
  57.       961 gtggcaaaca tttaaaaaaa aaaaaaaaaa gcaggaaaga tcccaagtca aacagtgtgg
  58.      1021 cttaaacatt ttttgtttct tggtgttgtt atggcaagtt tttggtaatg atgattcaat
  59.      1081 cattttggga aattcttgca ctgtatccaa gttatttgat ctggtgcgtg tggccctgtg
  60.      1141 ggagtccact ttcctctctc tctctctctc tgttccaagt gtgtgtgcaa tgttccgttc
  61.      1201 atctgaggag tccaaaatat tgagtgaatt c
  62. )))
  63.  
  64. So, when you execute the above then pep will contain a list consisting
  65. of symbols a b c d, which you can then directly map to tonalities.
  66.  
  67. RNA is a great source of fluctuating minimalistic lines. I have had a
  68. great inspiration of AIDS RNA. Brain tries to build a model and understand
  69. everything it hears. This case you are listening data which design
  70. principles come from a microworld of 4-5 dimensions (somesuch..). 
  71.  
  72. Mind will recur searching solution until exhaustion. Returning from the 
  73. recursion back reality level is fruitful. After unsoluble search it suddenly
  74. feels like every other thing is soluble. When you play RNA in steady 
  75. tempo 6-10 events per second you can induce trance.  
  76.  
  77. Hint. B5, B6 and B12 vitamins increase memory upto 40 percent. Intelligence 
  78. can be increased also by just digesting more information. Import new 
  79. information to your brain using SCOM generators. Infinity series triggered
  80. my mind into a new path...very interesting these aspects of music..
  81.